100 IFA=0THENA=1:D=PEEK(186)
110 IFA=1THENA=2:LOAD"C4.$70",D,1
120 IFA=2THENA=3:LOAD"C4.$C0",D,1
130 IFA=3THENA=4:LOAD"C4.$E0",D,1
140 IFA=4THENA=5:LOAD"C4.$64",D,1
150 :SYS25600